program ioprogram
   
  var
    a:int
    
begin
  Read(out a)
  a:=a*a
  Write(in "Output " in a)  
  Read()
end -- test